home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
WINWORDS
/
WINE02BX.ZIP
/
LISP
/
MODES
/
OLD-CXX-.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
16KB
|
163 lines
;;; compiled by @win386 on Sat Mar 13 14:32:29 1993
;;; from file c:/src/lucid-19.4/lisp/modes/old-cxx-.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(defvar c++-mode-abbrev-table nil "\
Abbrev table in use in C++-mode buffers.")
(define-abbrev-table 'c++-mode-abbrev-table nil)
(defvar c++-mode-map nil "\
Keymap used in C++ mode.")
(byte-code "¼▌┴ ┬├─#ê┬┼╞#ê┬╟╞#ê┬╚╔#ê┬╩╦#ê┬╠═#ê┬╬╧#ê┬╨╤#ê┬╥╙#ê┬╘╒#ê┬╓╫#ê┬╪┘#ê┬┌█#ê┬▄▌#ê┬▐▀#ê┴ç" [c++-mode-map make-sparse-keymap define-key "\n" reindent-then-newline-and-indent "{" electric-c++-brace "}" ";" electric-c++-semi "" mark-c++-function "" indent-c++-exp "" backward-delete-char-untabify " " c++-indent-command " " c++-insert-header "" c++-macroize-region "" c++-comment-region "" c++-uncomment-region "" c++-beginning-of-defun "" c++-end-of-defun "" c++-indent-defun] 4)
(defvar c++-mode-syntax-table nil "\
Syntax table in use in C++-mode buffers.")
(byte-code "¼û┴\n!├─┼#ê├╞╟#ê├╚╔#ê┴ç" [c++-mode-syntax-table copy-syntax-table c-mode-syntax-table modify-syntax-entry 47 ". 12" 10 ">" 39 "."] 4)
(defvar c++-continued-member-init-offset nil "\
*Extra indent for continuation lines of member inits; NIL means to align
with previous initializations rather than with the colon on the first line.")
(defvar c++-member-init-indent 0 "\
*Indentation level of member initializations in function declarations.")
(defvar c++-friend-offset -4 "\
*Offset of C++ friend class declarations relative to member declarations.")
(defvar c++-electric-colon t "\
*If t, colon is an electric terminator.")
(defvar c++-empty-arglist-indent nil "\
*Indicates how far to indent an line following an empty argument
list. Nil indicates to just after the paren.")
(fset 'c++-mode #[nil "└ ê┴\n!ê├!ê┼╞!ê╟╔\n╦╠╬╨╥╘┼╪!┘PLê┼█!Lê┼▄!▌Lê┼▐!▌Lê┼▀!αLêßΓ!ê#¡àΣ\nσµ#ç" [kill-all-local-variables use-local-map c++-mode-map set-syntax-table c++-mode-syntax-table make-local-variable indent-line-function c++-mode major-mode "C++" mode-name c++-indent-line "// " comment-start "" comment-end 32 comment-column "/\\*+ *\\|// *" comment-start-skip c++-comment-indent comment-indent-hook c++-mode-abbrev-table local-abbrev-table paragraph-start "^$\\|" page-delimiter paragraph-separate paragraph-ignore-fill-prefix t require-final-newline parse-sexp-ignore-comments nil run-hooks c++-mode-hook c++-electric-colon define-key ":" electric-c++-terminator] 4 "\
Major mode for editing C++ code. Very much like editing C code.
Expression and list commands understand all C++ brackets.
Tab at left margin indents for C++ code
Comments are delimited with /* ... */ {or with // ... <newline>}
Paragraphs are separated by blank lines only.
Delete converts tabs to spaces as it moves back.
\\{c++-mode-map}
Variables controlling indentation style:
c-tab-always-indent
Non-nil means TAB in C mode should always reindent the current line,
regardless of where in the line point is when the TAB command is used.
Default is t.
c-auto-newline
Non-nil means automatically newline before and after braces,
and after colons and semicolons, inserted in C code.
c-indent-level
Indentation of C statements within surrounding block.
The surrounding block's indentation is the indentation
of the line on which the open-brace appears.
c-continued-statement-offset
Extra indentation given to a substatement, such as the
then-clause of an if or body of a while.
c-continued-brace-offset
Extra indentation given to a brace that starts a substatement.
This is in addition to c-continued-statement-offset.
c-brace-offset
Extra indentation for line if it starts with an open brace.
c-brace-imaginary-offset
An open brace following other text is treated as if it were
this far to the right of the start of its line.
c-argdecl-indent
Indentation level of declarations of C function arguments.
c-label-offset
Extra indentation for line that is a label, or case or ``default:'', or
``public:'' or ``private:'', or ``protected:''.
c++-electric-colon
If non-nil at invocation of c++-mode (t is the default) colon electricly
indents.
c++-empty-arglist-indent
If non-nil, a function declaration or invocation which ends a line with a
left paren is indented this many extra spaces, instead of flush with the
left paren.
c++-friend-offset
Offset of C++ friend class declarations relative to member declarations.
c++-member-init-indent
Indentation level of member initializations in function declarations,
if they are on a separate line beginning with a colon.
c++-continued-member-init-offset
Extra indentation for continuation lines of member initializations; NIL
means to align with previous initializations rather than with the colon.
Settings for K&R, BSD, and Stroustrup indentation styles are
c-indent-level 5 8 4
c-continued-statement-offset 5 8 4
c-continued-brace-offset 0
c-brace-offset -5 -8 0
c-brace-imaginary-offset 0
c-argdecl-indent 0 8 4
c-label-offset -5 -8 -4
c++-empty-arglist-indent 4
c++-friend-offset 0
Turning on C++ mode calls the value of the variable c++-mode-hook with
no args,if that value is non-nil." nil])
(fset 'c++-comment-indent #[nil "└┴!½é┬çè├─xêi┬U½â┬¬éiT`╞yê╟╔#½ç┬öbêi¬é\n)])ç" [looking-at "^\\(/\\*\\|//\\)" 0 " " nil cur-pt -1 re-search-forward comment-start-skip t comment-column] 5])
(fset 'electric-c++-brace #[(arg) "└\n¼╢l½│è├└xên)¼ë½º┼ ê╞ êcê┼ ê½è╞ ê`╚Z┼ êè ½ä Tbê╔╩!ê) ½îè bê╦╠\n!!)¬à╦╠\n!!)ç" [nil insertpos arg " " c-auto-newline c++-indent-line newline last-command-char 2 delete-char -1 self-insert-command prefix-numeric-value] 3 "\
Insert character and correct line's indentation." "P"])
(fset 'electric-c++-semi #[(arg) "½ä┴\n!ç├─\n!!ç" [c-auto-newline electric-c++-terminator arg self-insert-command prefix-numeric-value] 3 "\
Insert character and correct line's indentation." "P"])
(fset 'electric-c++-terminator #[(arg) "└`¼√l½°è─yê┼└wêg╞U«╜╚=½¥╔╩!¼ÿè╦vê┼└wê` W)½èè╦ê╔╠!)«Ü═ ê╬` \"╨8«è╤8«ä╥8))¼½cê╙ ê½ô╒ ¼Å╓ ë`S└ôê╫ ê╪ êè\n½ä\nTbê┘┌!ê)\n½îè\nbê█▄!!)¬à█▄!!*ç" [nil end insertpos arg 0 " " 35 last-command-char 58 looking-at "case[ ]" 1 ":" beginning-of-defun parse-partial-sexp pps 3 4 5 c++-indent-line c-auto-newline c-inside-parens-p make-marker newline c-indent-line delete-char -1 self-insert-command prefix-numeric-value] 4 "\
Insert character and correct line's indentation." "P"])
(fset 'c++-indent-command #[(&optional whole-exp) "½¡┴ ┬ëè½â╟yê`╚╔!ê`bê╔yê`)V¡å╩╦$+ç¼îè╠┬xên)¼â═ ç┴ ç" [whole-exp c++-indent-line nil end beg shift-amt c-tab-always-indent 0 forward-sexp 1 indent-code-rigidly "#" " " insert-tab] 5 "\
Indent current line as C++ code, or in some cases insert a tab character.
If c-tab-always-indent is non-nil (the default), always indent current line.
Otherwise, indent the current line only if point is at the left margin
or in the line's indentation; otherwise insert a tab.
A numeric argument, regardless of its value,
means indent rigidly all the lines of the expression starting after point
so that this line becomes properly indented.
The relative indentation among the lines of the expression are preserved." "P"])
(fset 'c++-indent-line #[nil "└┴!┴ëëd`Z╟yê`┴=½ç╚ é▒╔=½ç╩ é▒╦╠!½à╟¬∙═┴wê<½à@╦╬!½ë\\¬▌╦╨!¼É╦╤!½ûè╥╙!ê╦╘!)½ï╙\\]¬╜╦╒!½É╦╓!¼ïè╫ ê╚ )¬¿╦╪!½ë\\¬Üg┌U½ëZ¬îg▄U½ç\\═┴wêiZë╟U½Äd\nZ`V½¢d\nZbê¬ö`|êjêd\nZ`V½àd\nZbê-ç" [calculate-c++-indent nil pos case-fold-search shift-amt beg indent 0 current-indentation t calculate-c-indent-within-comment looking-at "[ ]*#" " " "\\(default\\|public\\|private\\|protected\\):" c-label-offset "case\\b" "[A-Za-z]" forward-sexp 1 ":[